home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #5 & #6 / Amiga Plus CD - 1995 - No. 5 and 6.iso / pd / serien / purity / nr.26 / filereq / unittester.p < prev    next >
Text File  |  1995-04-23  |  2KB  |  55 lines
  1. PROGRAM filereqtester;
  2.  
  3. { Testprogramm zur unit filrequ,die einem den arp }
  4. { und den asl-filerequester zur Verfügung stellt. }
  5. {                                                 }
  6. {       (c) 16.01.1994 by                         }
  7. {                                                 }
  8. {       Røgersøft                                 }
  9. {                                                 }
  10. {       Michael Klein                             }
  11. {       Am Wasserturm 6                           }
  12. {       67346 Speyer                              }
  13. {                                                 }
  14. {   . . . PUBLIC DOMAIN                           }
  15. {                        made for PURITY          }
  16. {                                                 }
  17. {      the FD library of Pascal programming       }
  18.  
  19.  
  20. FROM mytools USES filerequ;      { Unit einbinden }
  21.  
  22. VAR filename,dirname:STRING100; { wird in Unit filereq definiert }
  23.     titel:STR;
  24.     cancel:BOOLEAN;
  25.  
  26. BEGIN
  27.  cancel:=FALSE;
  28.  filename:='';
  29.  dirname:='';
  30.  titel:='Rogers geile Requestertols';
  31.  
  32.  IF FromWB THEN
  33.  BEGIN
  34.   Reset(input,'CON:0/0/440/100/UNIT_Filerequ_tester');
  35.   output:=input;
  36.  END;
  37.  
  38.  IF req(titel,filename,dirname,NIL) THEN  {Funktionsaufruf }
  39.  BEGIN
  40.   writeln('   Pfadname: ',dirname);
  41.   writeln('  Dateiname: ',filename);
  42.   writeln('Voller Name: ',dirname,filename);
  43.  END
  44.  ELSE
  45.  BEGIN
  46.   writeln(' Cancel gewählt ');
  47.  END;
  48.  
  49.  IF FROMWB THEN
  50.  BEGIN
  51.   delay(4*50);   { 4 Sekunden warten }
  52.   Close(Input);  { Fenster schließen }
  53.  END;
  54. END.
  55.